home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / JULTODAT.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  731b  |  18 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE:'QBTOOLS2.INC'
  3.  
  4.  
  5. FUNCTION JulianToDate$ (Juln!) STATIC
  6.  
  7. Y! = INT((Juln! - Juln! / 1461) / 365)
  8.  
  9. j! = Juln! - (Y! * 365 + INT((Y! - 1) / 4))
  10. M% = -((Y! AND NOT -4) <> 0) * (1 - (j! > 31) - (j! > 59) - (j! > 90) - (j! > 120) - (j! > 151) - (j! > 181) - (j! > 212) - (j! > 243) - (j! > 273) - (j! > 304) - (j! > 334)) - ((Y! AND NOT -4) = 0) * (1 - (j! > 31) - (j! > 60) - (j! > 91) - (j! >  _
  11. 121) - (j! > 152) - (j! > 182) - (j! > 213) - (j! > 244) - (j! > 274) - (j! > 305) - (j! > 335))
  12. D% = (j! - ((M% - 1) * 28 + VAL(MID$("000303060811131619212426", (M% - 1) * 2 + 1, 2)))) + ((M% > 2) AND ((Y! AND NOT -4) = 0))
  13.  
  14. Y% = Y!
  15. JulianToDate$ = MDYToDate(M%, D%, Y%)
  16.  
  17. END FUNCTION
  18.